home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / nt / source.exe / POSIX / LN / LN.C < prev    next >
C/C++ Source or Header  |  1993-07-02  |  6KB  |  234 lines
  1. /*
  2.  * Copyright (c) 1987 Regents of the University of California.
  3.  * All rights reserved.
  4.  *
  5.  * Redistribution and use in source and binary forms, with or without
  6.  * modification, are permitted provided that the following conditions
  7.  * are met:
  8.  * 1. Redistributions of source code must retain the above copyright
  9.  *    notice, this list of conditions and the following disclaimer.
  10.  * 2. Redistributions in binary form must reproduce the above copyright
  11.  *    notice, this list of conditions and the following disclaimer in the
  12.  *    documentation and/or other materials provided with the distribution.
  13.  * 3. All advertising materials mentioning features or use of this software
  14.  *    must display the following acknowledgement:
  15.  *    This product includes software developed by the University of
  16.  *    California, Berkeley and its contributors.
  17.  * 4. Neither the name of the University nor the names of its contributors
  18.  *    may be used to endorse or promote products derived from this software
  19.  *    without specific prior written permission.
  20.  *
  21.  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31.  * SUCH DAMAGE.
  32.  */
  33.  
  34. #ifdef DF_POSIX /* DF_DSC */
  35. #include <misc.h>
  36. #include <bsdlib.h>
  37. #endif
  38.  
  39. #ifndef lint
  40. char copyright[] =
  41. "@(#) Copyright (c) 1987 Regents of the University of California.\n\
  42.  All rights reserved.\n";
  43. #endif /* not lint */
  44.  
  45. #ifndef lint
  46. static char sccsid[] = "@(#)ln.c    4.15 (Berkeley) 2/24/91";
  47. #endif /* not lint */
  48.  
  49. #ifdef DF_POSIX /* DF_DSC */
  50. #include <sys/cdefs.h>
  51. #else
  52. #include <sys/param.h>
  53. #endif
  54. #include <sys/stat.h>
  55. #include <stdio.h>
  56. #include <errno.h>
  57. #include <string.h>
  58. #include <stdlib.h>
  59. #include <unistd.h>
  60.  
  61. static int    dirflag,            /* undocumented force flag */
  62. #ifndef _POSIX_SOURCE
  63.         sflag,                /* symbolic, not hard, link */
  64. #endif
  65.         (*linkf) __P((const char *, const char *));    /* system link call */
  66. static int linkit __P((char *, char *, int));
  67. static void usage __P((void));
  68.  
  69. #if WIN_NT
  70. extern int globulate __P((int, int, char **));
  71. extern void deglobulate __P((void));
  72. extern int globulated_argc;
  73. extern char **globulated_argv;
  74. pid_t ppid;
  75. int globulation;
  76. #endif
  77.  
  78. int
  79. #if __STDC__
  80. main (int argc, char **argv)
  81. #else
  82. main(argc, argv)
  83.     int argc;
  84.     char **argv;
  85. #endif
  86. {
  87.     extern int optind;
  88.     struct stat buf;
  89. #ifdef _POSIX_SOURCE /* DF_MSS */
  90.     int ch, exitval;
  91. #else
  92.     int ch, exitval, link(), symlink();
  93. #endif
  94.     char *sourcedir;
  95.  
  96. #if WIN_NT
  97.     ppid = getppid();
  98.     if (ppid == (pid_t) 1) /* if parent is CMD.EXE */
  99.     {
  100.         globulation = globulate(1, argc, argv);
  101.         if (globulation == 0)
  102.         {
  103.             argc = globulated_argc;
  104.             argv = globulated_argv;
  105.         }
  106.     }
  107. #endif
  108.  
  109.     while ((ch = getopt(argc, argv, "Fs")) != EOF)
  110.         switch((char)ch) {
  111.         case 'F':
  112.             dirflag = 1;
  113.             break;
  114. #ifndef _POSIX_SOURCE /* DF_MSS */
  115.         case 's':
  116.             sflag = 1;
  117.             break;
  118. #endif
  119.         case '?':
  120.         default:
  121.             usage();
  122.         }
  123.  
  124.     argv += optind;
  125.     argc -= optind;
  126.  
  127. #ifdef _POSIX_SOURCE /* DF_MSS */
  128.     linkf = link;
  129. #else
  130.     linkf = sflag ? symlink : link;
  131. #endif
  132.  
  133.     switch(argc) {
  134.     case 0:
  135.         usage();
  136.     case 1:                /* ln target */
  137.         exitval = linkit(argv[0], ".", 1);
  138.         break;
  139.     case 2:                /* ln target source */
  140.         exitval = linkit(argv[0], argv[1], 0);
  141.         break;
  142.     default:            /* ln target1 target2 directory */
  143.         sourcedir = argv[argc - 1];
  144.         if (stat(sourcedir, &buf)) {
  145.             (void)fprintf(stderr,
  146.                 "ln: %s: %s\n", sourcedir, strerror(errno));
  147. #if WIN_NT
  148.             if (ppid == (pid_t) 1 && globulation == 0)
  149.                 deglobulate();
  150. #endif
  151.             exit(EXIT_FAILURE);
  152.         }
  153.         if (!S_ISDIR(buf.st_mode))
  154.             usage();
  155.         for (exitval = EXIT_SUCCESS; *argv != sourcedir; ++argv)
  156.             exitval |= linkit(*argv, sourcedir, 1);
  157.         break;
  158.     }
  159. #if WIN_NT
  160.     if (ppid == (pid_t) 1 && globulation == 0)
  161.         deglobulate();
  162. #endif
  163.     return exitval;
  164. }
  165.  
  166. static int
  167. #if __STDC__
  168. linkit (char *target, char *source, int isdir)
  169. #else
  170. linkit(target, source, isdir)
  171.     char *target, *source;
  172.     int isdir;
  173. #endif
  174. {
  175.     struct stat buf;
  176.     char path[MAXPATHLEN], *cp;
  177.  
  178. #ifndef _POSIX_SOURCE
  179.     if (!sflag) {
  180. #endif
  181.         /* if target doesn't exist, quit now */
  182.         if (stat(target, &buf)) {
  183.             (void)fprintf(stderr,
  184.                 "ln: %s: %s\n", target, strerror(errno));
  185.             return(EXIT_FAILURE);
  186.         }
  187.         /* only symbolic links to directories, unless -F option used */
  188.         if (!dirflag && (buf.st_mode & S_IFMT) == S_IFDIR) {
  189.             (void)printf("ln: %s is a directory.\n", target);
  190.             return(EXIT_FAILURE);
  191.         }
  192. #ifndef _POSIX_SOURCE
  193.     }
  194. #endif
  195.  
  196.     /* if the source is a directory, append the target's name */
  197.     if (isdir || !stat(source, &buf) && (buf.st_mode & S_IFMT) == S_IFDIR) {
  198.         if (!(cp = rindex(target, '/')))
  199.             cp = target;
  200.         else
  201.             ++cp;
  202.         (void)sprintf(path, "%s/%s", source, cp);
  203.         source = path;
  204.     }
  205. #if 0 && DF_POSIX
  206. printf ("linkit %s %s\n", target, source);
  207. #endif
  208.     if ((*linkf)(target, source)) {
  209.         (void)fprintf(stderr, "ln: %s: %s\n", source, strerror(errno));
  210.         return(EXIT_FAILURE);
  211.     }
  212.     return(EXIT_SUCCESS);
  213. }
  214.  
  215. static void
  216. #if __STDC__
  217. usage (void)
  218. #else
  219. usage()
  220. #endif
  221. {
  222.     (void)fprintf(stderr,
  223. #ifdef _POSIX_SOURCE /* DF_MSS */
  224.         "usage:\tln file1 file2\n\tln file ... directory\n");
  225. #else
  226.         "usage:\tln [-s] file1 file2\n\tln [-s] file ... directory\n");
  227. #endif
  228. #if WIN_NT
  229.     if (ppid == (pid_t) 1 && globulation == 0)
  230.         deglobulate();
  231. #endif
  232.     exit(EXIT_FAILURE);
  233. }
  234.